home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group94a.txt / 000138_icon-group-sender _Tue May 24 08:13:20 1994.msg < prev    next >
Internet Message Format  |  1994-08-19  |  2KB
  1. Received: by cheltenham.cs.arizona.edu; Tue, 24 May 1994 15:01:55 MST
  2. Date: Tue, 24 May 94 08:13:20 PDT
  3. From: kwalker@sirtur.premenos.com (Ken Walker)
  4. Message-Id: <9405241513.AA01092@sirtur.premenos.com>
  5. To: TENAGLIA@MIS.MCW.EDU, icon-group@cs.arizona.edu
  6. Subject: Re: wishlist?
  7. X-Sun-Charset: US-ASCII
  8. Content-Length: 1155
  9. Status: R
  10. Errors-To: icon-group-errors@cs.arizona.edu
  11.  
  12. > From: Chris Tenaglia - 257-8765 <TENAGLIA@MIS.MCW.EDU>
  13. > 
  14. >               every n := 0.0 to &pi*2.0 by &pi/180.0 do ...
  15. > 
  16. >   'every' cannot increment by reals. It can only do integers, strings,
  17. >   and structures.
  18.  
  19. Technically speaking the problem is not with 'every'; the problem is
  20. with 'to by'. This is illustrated by writing a toby() procedure that
  21. mimics 'to by', but works fine with reals:
  22.  
  23. procedure toby(From, To, By)
  24.     /By := 1
  25.  
  26.     if From < To then {
  27.         if By <= 0 then
  28.             stop("infinite sequence specified for toby()")
  29.         while From <= To do {
  30.             suspend From
  31.             From +:= By
  32.             }
  33.         }
  34.     else {
  35.         if By >= 0 then
  36.             stop("infinite sequence specified for toby()")
  37.         while From >= To do {
  38.             suspend From
  39.             From +:= By
  40.             }
  41.         }
  42. end
  43.  
  44. procedure main()
  45.    local From, To, By
  46.  
  47.    repeat {
  48.        writes("from ")
  49.        From := read() | stop()
  50.        writes("to ")
  51.        To := read() | stop()
  52.        writes("by ")
  53.        By := read() | stop()
  54.        every write("  ", toby(From, To, By))
  55.        }
  56. end
  57.  
  58.  
  59. Ken Walker, kwalker@premenos.com
  60.